unit basicio_harbor;

{$mode objfpc}{$H+}

{
  Stores all informations about a harbor
}

interface

uses
  Classes, SysUtils, fgl, basicio_field;

type
  { THarbor }
  THarbor = class
    private
      FID : integer;
      FResource: TResKind;
    public
      constructor Create(AID: Integer);
      destructor Destroy; override;
      property resource: TResKind read FResource write FResource;
  end;

  THarborList = specialize TFPGObjectList<THarbor>;

implementation

{ THarbor }

constructor THarbor.Create(AID: Integer);
begin
  inherited Create;
  FID := AID;
end;

destructor THarbor.Destroy;
begin
  inherited Destroy;
end;

end.

